/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / M / MACPOINT.sit / MacPoint info / HexPixReader

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 48 65 78 50 69 78 | 52 65 61 64 65 72 00 00 |..HexPix|Reader..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 41 43 | 41 00 00 00 00 00 00 00 |.TEXTMAC|A.......|
|00000050| 00 00 00 00 00 0a 5c 00 | 00 01 5f a1 74 27 e2 a1 |......\.|.._.t'..|
|00000060| 74 27 e2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t'......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cf 7c 00 00 |........|.....|..|
|00000080| 27 65 78 61 6d 70 6c 65 | 20 6f 66 20 4d 61 63 50 |'example| of MacP|
|00000090| 6f 69 6e 74 20 22 48 65 | 78 50 69 78 22 20 70 72 |oint "He|xPix" pr|
|000000a0| 6f 74 6f 63 6f 6c 20 66 | 6f 72 20 74 72 61 6e 73 |otocol f|or trans|
|000000b0| 6d 69 74 74 69 6e 67 0d | 27 62 69 74 6d 61 70 70 |mitting.|'bitmapp|
|000000c0| 65 64 20 67 72 61 70 68 | 69 63 73 20 69 6e 20 42 |ed graph|ics in B|
|000000d0| 42 53 20 6d 65 73 73 61 | 67 65 73 20 62 79 20 63 |BS messa|ges by c|
|000000e0| 6f 6e 76 65 72 74 69 6e | 67 0d 27 68 65 78 61 64 |onvertin|g.'hexad|
|000000f0| 65 63 69 6d 61 6c 20 63 | 68 61 72 61 63 74 65 72 |ecimal c|haracter|
|00000100| 20 73 74 72 69 6e 67 73 | 20 74 6f 20 62 69 74 6d | strings| to bitm|
|00000110| 61 70 73 0d 0d 27 77 72 | 69 74 74 65 6e 20 66 6f |aps..'wr|itten fo|
|00000120| 72 20 74 68 65 20 4d 69 | 63 72 6f 73 6f 66 74 20 |r the Mi|crosoft |
|00000130| 4d 61 63 69 6e 74 6f 73 | 68 20 42 41 53 49 43 20 |Macintos|h BASIC |
|00000140| 63 6f 6d 70 69 6c 65 72 | 0d 0d 27 62 75 67 3a 20 |compiler|..'bug: |
|00000150| 74 68 65 20 6c 61 73 74 | 20 6c 69 6e 65 20 6f 66 |the last| line of|
|00000160| 20 62 69 74 73 20 73 6f | 6d 65 74 69 6d 65 73 20 | bits so|metimes |
|00000170| 67 65 74 73 20 64 72 61 | 77 6e 20 74 77 69 63 65 |gets dra|wn twice|
|00000180| 0d 0d 44 49 4d 20 53 54 | 41 54 49 43 20 48 24 28 |..DIM ST|ATIC H$(|
|00000190| 39 39 29 2c 20 41 52 43 | 24 28 34 30 29 0d 44 45 |99), ARC|$(40).DE|
|000001a0| 46 49 4e 54 20 57 2d 5a | 0d 77 63 6f 72 6e 65 72 |FINT W-Z|.wcorner|
|000001b0| 3d 34 35 30 3a 20 77 63 | 65 6e 74 65 72 3d 49 4e |=450: wc|enter=IN|
|000001c0| 54 28 77 63 6f 72 6e 65 | 72 2f 32 29 0d 41 52 4e |T(wcorne|r/2).ARN|
|000001d0| 3d 31 0d 0d 57 49 4e 44 | 4f 57 20 31 2c 20 22 48 |=1..WIND|OW 1, "H|
|000001e0| 65 78 50 69 78 52 65 61 | 64 65 72 22 2c 20 28 32 |exPixRea|der", (2|
|000001f0| 35 2c 33 35 29 2d 28 32 | 35 30 2c 32 35 30 29 2c |5,35)-(2|50,250),|
|00000200| 31 0d 43 4c 53 3a 20 50 | 52 49 4e 54 20 22 6f 70 |1.CLS: P|RINT "op|
|00000210| 65 6e 20 74 68 65 20 62 | 69 74 6d 61 70 20 66 69 |en the b|itmap fi|
|00000220| 6c 65 22 0d 46 49 4e 24 | 3d 46 49 4c 45 53 24 28 |le".FIN$|=FILES$(|
|00000230| 31 2c 20 22 54 45 58 54 | 22 29 0d 4f 50 45 4e 20 |1, "TEXT|").OPEN |
|00000240| 46 49 4e 24 20 46 4f 52 | 20 49 4e 50 55 54 20 41 |FIN$ FOR| INPUT A|
|00000250| 53 20 23 31 0d 57 48 49 | 4c 45 20 4e 4f 54 20 45 |S #1.WHI|LE NOT E|
|00000260| 4f 46 28 31 29 0d 20 49 | 46 20 41 52 4e 3c 34 30 |OF(1). I|F ARN<40|
|00000270| 20 54 48 45 4e 20 4c 49 | 4e 45 20 49 4e 50 55 54 | THEN LI|NE INPUT|
|00000280| 20 23 31 2c 20 41 52 43 | 24 28 41 52 4e 29 3a 20 | #1, ARC|$(ARN): |
|00000290| 41 52 4e 3d 41 52 4e 2b | 31 0d 57 45 4e 44 0d 0d |ARN=ARN+|1.WEND..|
|000002a0| 42 4d 48 65 61 64 65 72 | 3a 0d 20 4e 4f 43 24 3d |BMHeader|:. NOC$=|
|000002b0| 22 22 3a 20 58 4c 49 4d | 49 54 24 3d 22 22 3a 20 |"": XLIM|IT$="": |
|000002c0| 59 4c 49 4d 49 54 24 3d | 22 22 0d 20 45 49 42 4d |YLIMIT$=|"". EIBM|
|000002d0| 3d 30 20 27 45 72 72 6f | 72 73 20 49 6e 20 42 69 |=0 'Erro|rs In Bi|
|000002e0| 74 4d 61 70 0d 20 4c 45 | 44 3d 49 4e 53 54 52 28 |tMap. LE|D=INSTR(|
|000002f0| 41 52 43 24 28 31 29 2c | 20 22 3a 22 29 3a 20 52 |ARC$(1),| ":"): R|
|00000300| 45 44 3d 49 4e 53 54 52 | 28 41 52 43 24 28 31 29 |ED=INSTR|(ARC$(1)|
|00000310| 2c 20 22 5f 5e 22 29 0d | 20 49 46 20 52 45 44 3c |, "_^").| IF RED<|
|00000320| 3d 4c 45 44 20 54 48 45 | 4e 20 50 52 49 4e 54 20 |=LED THE|N PRINT |
|00000330| 22 45 72 72 6f 72 20 31 | 20 69 6e 20 62 69 74 6d |"Error 1| in bitm|
|00000340| 61 70 22 3a 20 42 45 45 | 50 3a 20 45 49 42 4d 3d |ap": BEE|P: EIBM=|
|00000350| 31 0d 20 46 4f 52 20 4c | 3d 4c 45 44 2b 31 20 54 |1. FOR L|=LED+1 T|
|00000360| 4f 20 52 45 44 0d 20 20 | 4e 4f 43 24 3d 4e 4f 43 |O RED.  |NOC$=NOC|
|00000370| 24 2b 4d 49 44 24 28 41 | 52 43 24 28 31 29 2c 4c |$+MID$(A|RC$(1),L|
|00000380| 2c 31 29 0d 20 20 49 46 | 20 4d 49 44 24 28 41 52 |,1).  IF| MID$(AR|
|00000390| 43 24 28 31 29 2c 4c 2c | 31 29 3d 22 2c 22 20 54 |C$(1),L,|1)="," T|
|000003a0| 48 45 4e 20 43 4f 4d 4d | 41 4c 4f 43 3d 4c 3a 20 |HEN COMM|ALOC=L: |
|000003b0| 4c 3d 52 45 44 2b 31 0d | 20 4e 45 58 54 0d 20 4e |L=RED+1.| NEXT. N|
|000003c0| 55 4d 43 4f 4c 4f 52 53 | 3d 56 41 4c 28 4e 4f 43 |UMCOLORS|=VAL(NOC|
|000003d0| 24 29 0d 20 49 46 20 4e | 55 4d 43 4f 4c 4f 52 53 |$). IF N|UMCOLORS|
|000003e0| 3c 3e 32 20 54 48 45 4e | 20 50 52 49 4e 54 20 22 |<>2 THEN| PRINT "|
|000003f0| 45 72 72 6f 72 20 32 20 | 69 6e 20 62 69 74 6d 61 |Error 2 |in bitma|
|00000400| 70 22 3a 20 42 45 45 50 | 3a 20 45 49 42 4d 3d 45 |p": BEEP|: EIBM=E|
|00000410| 49 42 4d 2b 32 0d 0d 20 | 46 4f 52 20 4c 3d 43 4f |IBM+2.. |FOR L=CO|
|00000420| 4d 4d 41 4c 4f 43 2b 31 | 20 54 4f 20 52 45 44 0d |MMALOC+1| TO RED.|
|00000430| 20 20 58 4c 49 4d 49 54 | 24 3d 58 4c 49 4d 49 54 |  XLIMIT|$=XLIMIT|
|00000440| 24 2b 4d 49 44 24 28 41 | 52 43 24 28 31 29 2c 4c |$+MID$(A|RC$(1),L|
|00000450| 2c 31 29 0d 20 20 49 46 | 20 4d 49 44 24 28 41 52 |,1).  IF| MID$(AR|
|00000460| 43 24 28 31 29 2c 4c 2c | 31 29 3d 22 2c 22 20 54 |C$(1),L,|1)="," T|
|00000470| 48 45 4e 20 43 4f 4d 4d | 41 4c 4f 43 3d 4c 3a 20 |HEN COMM|ALOC=L: |
|00000480| 4c 3d 52 45 44 2b 31 0d | 20 4e 45 58 54 0d 20 58 |L=RED+1.| NEXT. X|
|00000490| 4c 49 4d 49 54 3d 56 41 | 4c 28 58 4c 49 4d 49 54 |LIMIT=VA|L(XLIMIT|
|000004a0| 24 29 0d 20 49 46 20 58 | 4c 49 4d 49 54 2f 34 3c |$). IF X|LIMIT/4<|
|000004b0| 3e 49 4e 54 28 58 4c 49 | 4d 49 54 2f 34 29 20 54 |>INT(XLI|MIT/4) T|
|000004c0| 48 45 4e 20 50 52 49 4e | 54 20 22 45 72 72 6f 72 |HEN PRIN|T "Error|
|000004d0| 20 33 20 69 6e 20 62 69 | 74 6d 61 70 22 3a 20 42 | 3 in bi|tmap": B|
|000004e0| 45 45 50 3a 20 45 49 42 | 4d 3d 45 49 42 4d 2b 34 |EEP: EIB|M=EIBM+4|
|000004f0| 0d 20 49 46 20 58 4c 49 | 4d 49 54 3c 34 20 4f 52 |. IF XLI|MIT<4 OR|
|00000500| 20 58 4c 49 4d 49 54 3e | 33 30 30 20 54 48 45 4e | XLIMIT>|300 THEN|
|00000510| 20 50 52 49 4e 54 20 22 | 45 72 72 6f 72 20 34 20 | PRINT "|Error 4 |
|00000520| 69 6e 20 62 69 74 6d 61 | 70 22 3a 20 42 45 45 50 |in bitma|p": BEEP|
|00000530| 3a 20 45 49 42 4d 3d 45 | 49 42 4d 2b 38 0d 20 50 |: EIBM=E|IBM+8. P|
|00000540| 52 49 4e 54 20 58 4c 49 | 4d 49 54 20 22 70 69 78 |RINT XLI|MIT "pix|
|00000550| 65 6c 73 20 77 69 64 65 | 22 0d 0d 20 46 4f 52 20 |els wide|".. FOR |
|00000560| 4c 3d 43 4f 4d 4d 41 4c | 4f 43 2b 31 20 54 4f 20 |L=COMMAL|OC+1 TO |
|00000570| 52 45 44 0d 20 20 59 4c | 49 4d 49 54 24 3d 59 4c |RED.  YL|IMIT$=YL|
|00000580| 49 4d 49 54 24 2b 4d 49 | 44 24 28 41 52 43 24 28 |IMIT$+MI|D$(ARC$(|
|00000590| 31 29 2c 4c 2c 31 29 0d | 20 20 49 46 20 4d 49 44 |1),L,1).|  IF MID|
|000005a0| 24 28 41 52 43 24 28 31 | 29 2c 4c 2c 31 29 3d 22 |$(ARC$(1|),L,1)="|
|000005b0| 2c 22 20 54 48 45 4e 20 | 43 4f 4d 4d 41 4c 4f 43 |," THEN |COMMALOC|
|000005c0| 3d 4c 3a 20 4c 3d 52 45 | 44 2b 31 0d 20 4e 45 58 |=L: L=RE|D+1. NEX|
|000005d0| 54 0d 20 59 4c 49 4d 49 | 54 3d 56 41 4c 28 59 4c |T. YLIMI|T=VAL(YL|
|000005e0| 49 4d 49 54 24 29 0d 20 | 49 46 20 59 4c 49 4d 49 |IMIT$). |IF YLIMI|
|000005f0| 54 3c 34 20 4f 52 20 59 | 4c 49 4d 49 54 3e 32 30 |T<4 OR Y|LIMIT>20|
|00000600| 30 20 54 48 45 4e 20 50 | 52 49 4e 54 20 22 45 72 |0 THEN P|RINT "Er|
|00000610| 72 6f 72 20 35 20 69 6e | 20 62 69 74 6d 61 70 22 |ror 5 in| bitmap"|
|00000620| 3a 20 42 45 45 50 3a 20 | 45 49 42 4d 3d 45 49 42 |: BEEP: |EIBM=EIB|
|00000630| 4d 2b 31 36 0d 20 50 52 | 49 4e 54 20 59 4c 49 4d |M+16. PR|INT YLIM|
|00000640| 49 54 20 22 70 69 78 65 | 6c 73 20 68 69 67 68 22 |IT "pixe|ls high"|
|00000650| 0d 0d 48 53 43 3d 31 3a | 20 41 52 4e 3d 32 3a 20 |..HSC=1:| ARN=2: |
|00000660| 46 49 52 53 54 41 52 4e | 3d 32 0d 45 58 50 45 43 |FIRSTARN|=2.EXPEC|
|00000670| 54 45 44 4c 45 4e 47 54 | 48 3d 58 4c 49 4d 49 54 |TEDLENGT|H=XLIMIT|
|00000680| 2f 34 0d 4e 50 3d 58 4c | 49 4d 49 54 2a 59 4c 49 |/4.NP=XL|IMIT*YLI|
|00000690| 4d 49 54 3a 20 4c 57 3d | 49 4e 54 28 4e 50 2f 35 |MIT: LW=|INT(NP/5|
|000006a0| 30 30 29 0d 50 52 49 4e | 54 20 22 77 61 69 74 22 |00).PRIN|T "wait"|
|000006b0| 20 4c 57 20 22 73 65 63 | 6f 6e 64 73 2e 2e 2e 22 | LW "sec|onds..."|
|000006c0| 0d 50 52 49 4e 54 3a 20 | 50 52 49 4e 54 20 22 65 |.PRINT: |PRINT "e|
|000006d0| 6e 74 65 72 20 61 20 63 | 6f 6d 6d 61 6e 64 2d 70 |nter a c|ommand-p|
|000006e0| 65 72 69 6f 64 20 74 6f | 20 61 62 6f 72 74 22 0d |eriod to| abort".|
|000006f0| 0d 27 73 63 61 6e 20 65 | 61 63 68 20 6c 69 6e 65 |.'scan e|ach line|
|00000700| 20 6f 66 20 6d 65 73 73 | 61 67 65 20 61 6e 64 20 | of mess|age and |
|00000710| 65 78 74 72 61 63 74 20 | 68 65 78 20 73 74 72 69 |extract |hex stri|
|00000720| 6e 67 73 2c 20 69 67 6e | 6f 72 69 6e 67 0d 27 20 |ngs, ign|oring.' |
|00000730| 73 70 61 63 65 73 20 61 | 6e 64 20 6e 6f 6e 2d 68 |spaces a|nd non-h|
|00000740| 65 78 20 63 68 61 72 61 | 63 74 65 72 73 0d 0d 50 |ex chara|cters..P|
|00000750| 75 6c 6c 4d 79 53 74 72 | 69 6e 67 73 3a 0d 46 4f |ullMyStr|ings:.FO|
|00000760| 52 20 5a 3d 31 20 54 4f | 20 4c 45 4e 28 41 52 43 |R Z=1 TO| LEN(ARC|
|00000770| 24 28 41 52 4e 29 29 0d | 20 58 24 3d 4d 49 44 24 |$(ARN)).| X$=MID$|
|00000780| 28 41 52 43 24 28 41 52 | 4e 29 2c 5a 2c 31 29 3a |(ARC$(AR|N),Z,1):|
|00000790| 20 41 58 3d 41 53 43 28 | 58 24 2b 43 48 52 24 28 | AX=ASC(|X$+CHR$(|
|000007a0| 30 29 29 0d 20 49 46 20 | 41 58 3e 34 37 20 41 4e |0)). IF |AX>47 AN|
|000007b0| 44 20 41 58 3c 35 38 20 | 54 48 45 4e 20 48 24 28 |D AX<58 |THEN H$(|
|000007c0| 48 53 43 29 3d 48 24 28 | 48 53 43 29 2b 58 24 0d |HSC)=H$(|HSC)+X$.|
|000007d0| 20 49 46 20 41 58 3e 36 | 34 20 41 4e 44 20 41 58 | IF AX>6|4 AND AX|
|000007e0| 3c 37 31 20 54 48 45 4e | 20 48 24 28 48 53 43 29 |<71 THEN| H$(HSC)|
|000007f0| 3d 48 24 28 48 53 43 29 | 2b 58 24 0d 20 49 46 20 |=H$(HSC)|+X$. IF |
|00000800| 4c 45 4e 28 48 24 28 48 | 53 43 29 29 3d 45 58 50 |LEN(H$(H|SC))=EXP|
|00000810| 45 43 54 45 44 4c 45 4e | 47 54 48 20 54 48 45 4e |ECTEDLEN|GTH THEN|
|00000820| 20 48 53 43 3d 48 53 43 | 2b 31 0d 4e 45 58 54 20 | HSC=HSC|+1.NEXT |
|00000830| 5a 0d 49 46 20 49 4e 53 | 54 52 28 41 52 43 24 28 |Z.IF INS|TR(ARC$(|
|00000840| 41 52 4e 29 2c 20 22 5e | 5f 62 69 74 6d 61 70 2c |ARN), "^|_bitmap,|
|00000850| 65 6e 64 5f 5e 22 29 3d | 30 20 41 4e 44 20 48 53 |end_^")=|0 AND HS|
|00000860| 43 3c 3d 59 4c 49 4d 49 | 54 20 54 48 45 4e 20 41 |C<=YLIMI|T THEN A|
|00000870| 52 4e 3d 41 52 4e 2b 31 | 3a 20 47 4f 54 4f 20 50 |RN=ARN+1|: GOTO P|
|00000880| 75 6c 6c 4d 79 53 74 72 | 69 6e 67 73 0d 0d 27 64 |ullMyStr|ings..'d|
|00000890| 69 6d 65 6e 73 69 6f 6e | 73 20 66 6f 72 20 74 68 |imension|s for th|
|000008a0| 65 20 77 69 6e 64 6f 77 | 20 69 6e 20 77 68 69 63 |e window| in whic|
|000008b0| 68 20 74 68 65 20 67 72 | 61 70 68 69 63 20 61 70 |h the gr|aphic ap|
|000008c0| 70 65 61 72 73 0d 0d 59 | 31 3d 32 35 20 27 75 70 |pears..Y|1=25 'up|
|000008d0| 70 65 72 0d 59 32 3d 59 | 31 2b 59 4c 49 4d 49 54 |per.Y2=Y|1+YLIMIT|
|000008e0| 2b 33 20 27 6c 6f 77 65 | 72 0d 58 31 3d 77 63 6f |+3 'lowe|r.X1=wco|
|000008f0| 72 6e 65 72 2d 58 4c 49 | 4d 49 54 2d 37 20 27 6c |rner-XLI|MIT-7 'l|
|00000900| 65 66 74 0d 58 32 3d 77 | 63 6f 72 6e 65 72 2d 31 |eft.X2=w|corner-1|
|00000910| 0d 0d 57 49 4e 44 4f 57 | 20 43 4c 4f 53 45 20 32 |..WINDOW| CLOSE 2|
|00000920| 0d 0d 57 49 4e 44 4f 57 | 20 32 2c 22 22 2c 28 58 |..WINDOW| 2,"",(X|
|00000930| 31 2c 59 31 29 2d 28 58 | 32 2c 59 32 29 2c 33 3a |1,Y1)-(X|2,Y2),3:|
|00000940| 20 43 4c 53 0d 0d 27 64 | 72 61 77 20 74 68 65 20 | CLS..'d|raw the |
|00000950| 70 69 63 74 75 72 65 0d | 0d 46 4f 52 20 59 3d 31 |picture.|.FOR Y=1|
|00000960| 20 54 4f 20 48 53 43 3a | 20 58 3d 32 0d 20 46 4f | TO HSC:| X=2. FO|
|00000970| 52 20 4b 3d 31 20 54 4f | 20 45 58 50 45 43 54 45 |R K=1 TO| EXPECTE|
|00000980| 44 4c 45 4e 47 54 48 0d | 20 20 48 45 58 43 48 41 |DLENGTH.|  HEXCHA|
|00000990| 52 24 3d 4d 49 44 24 28 | 48 24 28 59 29 2c 20 4b |R$=MID$(|H$(Y), K|
|000009a0| 2c 20 31 29 0d 20 20 41 | 48 43 3d 41 53 43 28 48 |, 1).  A|HC=ASC(H|
|000009b0| 45 58 43 48 41 52 24 29 | 0d 20 20 49 46 20 41 48 |EXCHAR$)|.  IF AH|
|000009c0| 43 3e 34 37 20 41 4e 44 | 20 41 48 43 3c 35 38 20 |C>47 AND| AHC<58 |
|000009d0| 54 48 45 4e 20 4e 59 42 | 42 4c 45 3d 41 48 43 2d |THEN NYB|BLE=AHC-|
|000009e0| 34 38 0d 20 20 49 46 20 | 41 48 43 3e 36 34 20 41 |48.  IF |AHC>64 A|
|000009f0| 4e 44 20 41 48 43 3c 37 | 31 20 54 48 45 4e 20 4e |ND AHC<7|1 THEN N|
|00000a00| 59 42 42 4c 45 3d 41 48 | 43 2d 35 35 0d 20 20 58 |YBBLE=AH|C-55.  X|
|00000a10| 3d 58 2b 31 3a 20 49 46 | 20 4e 59 42 42 4c 45 20 |=X+1: IF| NYBBLE |
|00000a20| 41 4e 44 20 38 20 54 48 | 45 4e 20 50 53 45 54 28 |AND 8 TH|EN PSET(|
|00000a30| 58 2c 59 29 2c 20 33 33 | 0d 20 20 58 3d 58 2b 31 |X,Y), 33|.  X=X+1|
|00000a40| 3a 20 49 46 20 4e 59 42 | 42 4c 45 20 41 4e 44 20 |: IF NYB|BLE AND |
|00000a50| 34 20 54 48 45 4e 20 50 | 53 45 54 28 58 2c 59 29 |4 THEN P|SET(X,Y)|
|00000a60| 2c 20 33 33 0d 20 20 58 | 3d 58 2b 31 3a 20 49 46 |, 33.  X|=X+1: IF|
|00000a70| 20 4e 59 42 42 4c 45 20 | 41 4e 44 20 32 20 54 48 | NYBBLE |AND 2 TH|
|00000a80| 45 4e 20 50 53 45 54 28 | 58 2c 59 29 2c 20 33 33 |EN PSET(|X,Y), 33|
|00000a90| 0d 20 20 58 3d 58 2b 31 | 3a 20 49 46 20 4e 59 42 |.  X=X+1|: IF NYB|
|00000aa0| 42 4c 45 20 41 4e 44 20 | 31 20 54 48 45 4e 20 50 |BLE AND |1 THEN P|
|00000ab0| 53 45 54 28 58 2c 59 29 | 2c 20 33 33 0d 20 4e 45 |SET(X,Y)|, 33. NE|
|00000ac0| 58 54 20 4b 0d 4e 45 58 | 54 20 59 0d 0d 4c 6f 6f |XT K.NEX|T Y..Loo|
|00000ad0| 70 3a 20 47 4f 54 4f 20 | 4c 6f 6f 70 00 00 00 00 |p: GOTO |Loop....|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 01 00 00 00 01 19 | 00 00 00 19 00 00 00 46 |........|.......F|
|00000b10| 15 4e 5e 4e 75 00 00 00 | 13 00 58 00 77 00 ef 01 |.N^Nu...|..X.w...|
|00000b20| 89 00 01 00 00 00 00 00 | 00 00 00 00 00 00 00 1d |........|........|
|00000b30| 0c 48 65 78 50 69 78 52 | 65 61 64 65 72 75 02 00 |.HexPixR|eaderu..|
|00000b40| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000b50| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 a9 8d 4a 9f 00 00 | 00 00 00 00 01 5f 00 00 |....J...|....._..|
|00000b80| 0e 10 10 10 10 10 10 10 | 10 10 10 10 10 10 00 00 |........|........|
|00000b90| 00 00 06 10 10 10 10 10 | 00 00 00 00 04 00 04 03 |........|........|
|00000ba0| 03 00 00 00 04 06 06 01 | 00 00 00 00 0b 00 04 03 |........|........|
|00000bb0| 03 00 04 03 03 00 00 00 | 00 00 00 0b 00 00 00 06 |........|........|
|00000bc0| 06 01 00 06 06 01 00 00 | 00 00 0e 00 22 55 55 55 |........|...."UUU|
|00000bd0| 3e 14 14 3e 55 55 55 22 | 00 00 00 00 0d 18 3c 7c |>..>UUU"|......<||
|00000be0| 7c 7c 38 3a 79 75 65 64 | 24 00 00 00 00 0a 18 24 |||8:yued|$......$|
|00000bf0| 24 24 7e 24 24 24 00 00 | 00 00 00 0a 38 40 44 42 |$$~$$$..|....8@DB|
|00000c00| 00 00 00 09 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000c10| 08 00 92 00 00 00 34 00 | 02 00 00 01 00 00 00 01 |......4.|........|
|00000c20| 19 00 00 00 19 00 00 00 | 46 00 01 c9 50 03 ae 00 |........|F...P...|
|00000c30| 00 00 1c 00 46 00 01 45 | 46 4e 54 00 00 00 12 6d |....F..E|FNT....m|
|00000c40| 57 52 54 00 00 00 1e 03 | eb ff ff 00 00 00 00 00 |WRT.....|........|
|00000c50| 01 c8 78 00 00 ff ff 00 | 00 00 0d 00 01 c7 20 00 |..x.....|...... .|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+